home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Icon 8.1 / msm-2 / tests.sit / tests / coexprx.icn < prev    next >
Encoding:
Text File  |  1992-12-08  |  1.8 KB  |  66 lines  |  [TEXT/????]
  1. record array(a,b,c,d,e,f,g)
  2.  
  3. procedure dummy(u,v,x,y,z)
  4.    suspend u | v
  5.    return x
  6. end
  7.  
  8.  
  9. procedure f(x,y,z)
  10. end
  11.  
  12. procedure main()
  13.    if not(&features == "co-expressions") then
  14.       stop("co-expressions not supported")
  15.    write(image(&main))
  16.    write(image(&source))
  17.    write(image(¤t))
  18.    e := create foo
  19.    write(image(foo))
  20.    f(&main,&source,e)
  21.    write(image(x := [array(),table(),write,input,1,"abc",'aa',&null,create 1]) | "failed")
  22.    write(image(x := sort(x)) | "failed")
  23.    write(image(every write(image(!x))) | "failed")
  24.    write(image(e := create 1 to 10) | "failed")
  25.    write(image(@e) | "failed")
  26.    write(image(@e) | "failed")
  27.    write(image(@e) | "failed")
  28.    write(image(e := ^e) | "failed")
  29.    write(image(@e) | "failed")
  30.    write(image(@e) | "failed")
  31.    write(image(@e) | "failed")
  32.    write(image(@e) | "failed")
  33.    write(image(@e) | "failed")
  34.    write(image(@e) | "failed")
  35.    write(image(@e) | "failed")
  36.    write(image(@e) | "failed")
  37.    write(image(@e) | "failed")
  38.    write(image(@e) | "failed")
  39.    write(image(@e) | "failed")
  40.    write(image(@e) | "failed")
  41.    write(image(@e) | "failed")
  42.    write(image(@e) | "failed")
  43.    write(image(*e) | "failed")
  44.    write(image(*e) | "failed")
  45.    write(image(image(e)) | "failed")
  46.    write(image(tab := create {write("entering tab"); 1 | 2 | 3}) | "failed")
  47.    write(image(trim := create {write("entering trim"); @tab | (main @:= tab)}) | "failed")
  48.    write(image(@trim) | "failed")
  49.    write(image(@trim) | "failed")
  50.    write(image(write(image(trim))) | "failed")
  51.    write(image(write(image(tab))) | "failed")
  52.    write(image(write(image(main))) | "failed")
  53.    &trace := -1
  54.    dummy{1,2,3,4}
  55.    dummy{}
  56.    dummy(image{1,2,3,4})
  57.    dummy(put{1,2,3,4})
  58.    dummy("*"{1,2,3,4})
  59.    dummy(image("|||"([],[])))
  60.    dummy("+"(1,2))
  61.    dummy("+"(1))
  62.    dummy("image"(image(image)))
  63. end
  64.  
  65. invocable "*", "|||", "+", "image"
  66.